EditableMovie Class

Used to create, manipulate, and save QuickTime movies.

Events

None

Properties

Duration	Poster	TimeScale
EOF	SaveOnClose	TimeValue
Handle	SelLength	TrackCount
Picture	SelStart	UserData
Position	TimeDuration

Methods

AppendMovieSegment	InsertMovieSegment	SetRedoEditState
Clear	NewSoundTrack	SetUndoEditState
CommitChanges	NewVideoTrack	SoundTrack
Copy	Paste	Track
Cut	RestoreRedoEditState	VideoTrack
DataSize	RestoreUndoEditState
Flatten	ScaleMovieSegment

More information available in parent classes: Movie:Object

Since EditableMovie is subclassed from Movie, you can view an EditableMovie using the MoviePlayer control.

Notes

The TimeScale parameter defines the number of time units that pass each second. For example, a TimeScale value of 60 sets the timescale in sixtieths of a second. The TimeValue and TimeDuration parameters are expressed in TimeScale units.

The Position or the TimeValue properties can be used to position the movie; at that point, the Picture property contains the image at that point in the movie.

Examples

The following PushButton Action opens an existing movie as an EditableMovie. It updates the ImageWell and EditField with the current picture and position of the movie.

Dim f as FolderItem
Dim m as EditableMovie
f= GetFolderItem("Honey.Mov")
m=f.OpenEditableMovie
m.position=movieplayer1.position
ImageWell1.image=m.picture
Imagewell2.image=m.poster
EditField1.text=str(m.position)

The following example opens an existing movie as an EditableMovie and displays it in a MoviePlayer control named ThePlayer.

Dim f As FolderItem
Dim theEMovie as EditableMovie
f= GetOpenFolderItem("video/quicktime") //defined as a file type
If f <> Nil and f.exists then
theEMovie=f.OpenEditableMovie
If theEMovie<> Nil then
ThePlayer.movie=theEMovie
end if
end if

The following example creates a new video track from two pictures, p1 and p2, that have been dragged into the Project Editor.

Dim sequence as QTEffectSequence
Dim i,effectID as Integer
Dim theEffect as QTEffect
Dim track as QTVideoTrack
Dim m as EditableMovie
Dim f as FolderItem
f= GetFolderItem("Movie")
m=f.CreateMovie
If radiobutton1.value then
theEffect= GetQTCrossFadeEffect
else
theEffect= GetQTSMPTEeffect( Val(EffectsList.cell(EffectsList.ListIndex,1)))
end if
sequence= New QTEffectSequence(theEffect,p1,p2,96)
track=m.NewVideoTrack(p1.width, p1.height, 32)